home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 1 / MacMania 1.toast / Educational / Sciences / Chemist's Helper / card_3249.txt < prev    next >
Text File  |  1989-10-27  |  7KB  |  380 lines
  1. -- card: 3249 from stack: in
  2. -- bmap block id: 3594
  3. -- flags: 0000
  4. -- background id: 2590
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on opencard
  8.   show card field "note"
  9. end opencard
  10.  
  11. on calculate
  12.   global amount1
  13.   global amount2
  14.   global molar
  15.   global conc
  16.   global volume
  17.   global grav
  18.   put molar*volume/conc into amount1
  19.   put amount1 * grav into amount2
  20.   set the numberformat to "0.0"
  21. end calculate
  22.  
  23.  
  24. -- part 1 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=14 top=138 right=162 bottom=79
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: HNO3
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   global acid
  39.   global dim
  40.   global top
  41.   global conc
  42.   global grav
  43.   put 1 into dim
  44.   put 7 into top
  45.   put 15.8 into conc
  46.   put 1.42 into grav
  47.   dimmer
  48.   put "Nitric Acid" into acid
  49.  
  50.   set the highlight of button 1 to true
  51.  
  52. end mouseUp
  53.  
  54.  
  55.  
  56.  
  57. -- part 2 (field)
  58. -- low flags: 01
  59. -- high flags: 0004
  60. -- rect: left=378 top=63 right=322 bottom=500
  61. -- title width / last selected line: 0
  62. -- icon id / first selected line: 0 / 0
  63. -- text alignment: 1
  64. -- font id: 3
  65. -- text size: 12
  66. -- style flags: 256
  67. -- line height: 16
  68. -- part name: acid
  69.  
  70.  
  71. -- part 3 (button)
  72. -- low flags: 00
  73. -- high flags: 0000
  74. -- rect: left=14 top=163 right=187 bottom=79
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 0 / 0
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: H2SO4
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   global acid
  86.   global dim
  87.   global top
  88.   global conc
  89.   global grav
  90.   put 1 into dim
  91.   put 7 into top
  92.   put 18.0 into conc
  93.   put 1.84 into grav
  94.   dimmer
  95.   put "Sulfuric Acid" into acid
  96.  
  97.   set the highlight of button 2 TO TRUE
  98. end mouseUp
  99.  
  100.  
  101.  
  102.  
  103. -- part 4 (button)
  104. -- low flags: 00
  105. -- high flags: 0000
  106. -- rect: left=14 top=187 right=211 bottom=79
  107. -- title width / last selected line: 0
  108. -- icon id / first selected line: 0 / 0
  109. -- text alignment: 1
  110. -- font id: 0
  111. -- text size: 12
  112. -- style flags: 0
  113. -- line height: 16
  114. -- part name: H3PO4
  115. ----- HyperTalk script -----
  116. on mouseUp
  117.   global acid
  118.   global conc
  119.   global dim
  120.   global top
  121.   global grav
  122.   put 1 into dim
  123.   put 7 into top
  124.   put 14.8 into conc
  125.   put 1.70 into grav
  126.   dimmer
  127.   put "Phosphoric Acid" into acid
  128.  
  129.   set the highlight of button 3 to true
  130. end mouseUp
  131.  
  132.  
  133.  
  134.  
  135. -- part 5 (button)
  136. -- low flags: 00
  137. -- high flags: 0000
  138. -- rect: left=14 top=212 right=236 bottom=79
  139. -- title width / last selected line: 0
  140. -- icon id / first selected line: 0 / 0
  141. -- text alignment: 1
  142. -- font id: 0
  143. -- text size: 12
  144. -- style flags: 0
  145. -- line height: 16
  146. -- part name: Acetic
  147. ----- HyperTalk script -----
  148. on mouseUp
  149.   global acid
  150.   global dim
  151.   global top
  152.   global conc
  153.   global grav
  154.   put 1 into dim
  155.   put 7 into top
  156.   put 17.4 into conc
  157.   put 1.05 into grav
  158.   dimmer
  159.   put "Acetic Acid" into acid
  160.  
  161.   SET THE HIGHLIGHT OF BUTTON 4 TO TRUE
  162. end mouseUp
  163.  
  164.  
  165.  
  166.  
  167. -- part 6 (button)
  168. -- low flags: 00
  169. -- high flags: 0000
  170. -- rect: left=14 top=236 right=260 bottom=79
  171. -- title width / last selected line: 0
  172. -- icon id / first selected line: 0 / 0
  173. -- text alignment: 1
  174. -- font id: 0
  175. -- text size: 12
  176. -- style flags: 0
  177. -- line height: 16
  178. -- part name: NH4OH
  179. ----- HyperTalk script -----
  180. on mouseUp
  181.   global acid
  182.   global dim
  183.   global top
  184.   global conc
  185.   global grav
  186.   put 1 into dim
  187.   put 7 into top
  188.   put 14.8 into conc
  189.   put 0.90 into grav
  190.   dimmer
  191.   put "Ammonium Hydroxide" into acid
  192.  
  193.   set the highlight of button 5 to true
  194. end mouseUp
  195.  
  196.  
  197.  
  198.  
  199. -- part 7 (button)
  200. -- low flags: 00
  201. -- high flags: 0000
  202. -- rect: left=14 top=114 right=138 bottom=79
  203. -- title width / last selected line: 0
  204. -- icon id / first selected line: 0 / 0
  205. -- text alignment: 1
  206. -- font id: 0
  207. -- text size: 12
  208. -- style flags: 0
  209. -- line height: 16
  210. -- part name: HCl
  211. ----- HyperTalk script -----
  212. on mouseUp
  213.   global acid
  214.   global dim
  215.   global top
  216.   global conc
  217.   global grav
  218.   put 1 into dim
  219.   put 7 into top
  220.   put 12.0 into conc
  221.   put 1.19 into grav
  222.   dimmer
  223.   put "Hydrochloric Acid" into acid
  224.  
  225.   set the highlight of button 6 to true
  226. end mouseUp
  227.  
  228.  
  229.  
  230.  
  231. -- part 35 (button)
  232. -- low flags: 00
  233. -- high flags: A003
  234. -- rect: left=97 top=281 right=323 bottom=267
  235. -- title width / last selected line: 0
  236. -- icon id / first selected line: 0 / 0
  237. -- text alignment: 1
  238. -- font id: 0
  239. -- text size: 12
  240. -- style flags: 0
  241. -- line height: 16
  242. -- part name: Calculate
  243. ----- HyperTalk script -----
  244. on mouseUp
  245.   global conc
  246.   global acid
  247.   global molar
  248.   global volume
  249.   global amount1
  250.   global amount2
  251.   calculate
  252.   put empty into card field "acid"
  253.   hide card field "note"
  254.   put volume & " ml" into line 2 of card field "acid"
  255.   put "of" into line 3 of card field "acid"
  256.   put molar & " M" into line 4 of card field "acid"
  257.   put acid into line 5 of card field "acid"
  258.   put "USE" into line 6 of card field "acid"
  259.   put amount1 & " ml" into line 7 of card field "acid"
  260.   put "or" into line 8 of card field "acid"
  261.   put amount2 & " gms" into line 9 of card field "acid"
  262.   put "of" into line 10 of card field "acid"
  263.   put conc & " M" into line 11 of card field "acid"
  264.   put acid into line 12 of card field "acid"
  265.  
  266. end mouseUp
  267.  
  268.  
  269.  
  270. -- part 36 (field)
  271. -- low flags: 01
  272. -- high flags: 0001
  273. -- rect: left=368 top=31 right=326 bottom=509
  274. -- title width / last selected line: 0
  275. -- icon id / first selected line: 0 / 0
  276. -- text alignment: 1
  277. -- font id: 3
  278. -- text size: 20
  279. -- style flags: 256
  280. -- line height: 26
  281. -- part name: note
  282.  
  283.  
  284. -- part 37 (button)
  285. -- low flags: 00
  286. -- high flags: 8000
  287. -- rect: left=304 top=292 right=342 bottom=353
  288. -- title width / last selected line: 0
  289. -- icon id / first selected line: 1011 / 1011
  290. -- text alignment: 1
  291. -- font id: 0
  292. -- text size: 12
  293. -- style flags: 0
  294. -- line height: 16
  295. -- part name: home
  296. ----- HyperTalk script -----
  297. on mouseUp
  298.   go home
  299. end mouseUp
  300.  
  301.  
  302.  
  303. -- part 38 (button)
  304. -- low flags: 00
  305. -- high flags: 8002
  306. -- rect: left=464 top=325 right=342 bottom=512
  307. -- title width / last selected line: 0
  308. -- icon id / first selected line: 0 / 0
  309. -- text alignment: 1
  310. -- font id: 0
  311. -- text size: 12
  312. -- style flags: 0
  313. -- line height: 16
  314. -- part name: info
  315. ----- HyperTalk script -----
  316. on mouseUp
  317.   push card
  318.   go to card "info"
  319. end mouseUp
  320.  
  321.  
  322.  
  323. -- part 40 (button)
  324. -- low flags: 00
  325. -- high flags: A004
  326. -- rect: left=14 top=262 right=287 bottom=80
  327. -- title width / last selected line: 0
  328. -- icon id / first selected line: 0 / 0
  329. -- text alignment: 1
  330. -- font id: 0
  331. -- text size: 12
  332. -- style flags: 0
  333. -- line height: 16
  334. -- part name: OTHER
  335. ----- HyperTalk script -----
  336. on mouseUp
  337.   GLOBAL DIM
  338.   GLOBAL TOP
  339.   global molar
  340.   global volume
  341.   global acid
  342.   show card field "note"
  343.   put empty into molar
  344.   put empty into acid
  345.   put empty into volume
  346.  
  347.   PUT 1 INTO DIM
  348.   PUT 26 INTO TOP
  349.  
  350.   GO TO NEXT CARD
  351.   DIMMER2
  352. end mouseUp
  353.  
  354.  
  355.  
  356. -- part contents for card part 36
  357. ----- text -----
  358.  
  359. Use Caution
  360. when 
  361. Making
  362. Acid
  363. or
  364. Base
  365. Solutions
  366.  
  367. -- part contents for card part 2
  368. ----- text -----
  369.  
  370. 500 ml
  371. of
  372. 6.0 M
  373. Acetic Acid
  374. USE
  375. 172.4 ml
  376. or
  377. 181.0 gms
  378. of
  379. 17.4 M
  380. Acetic Acid